home *** CD-ROM | disk | FTP | other *** search
- INTERFACE;
-
- UNIT SETGRAPH( gotoxy, scroll_screen_up );
-
-
- (**********************************************************************)
- (* *)
- (* GOTOXY - Set cursor on screen at passed location *)
- (* *)
- (* GOTOXY( row :integer - row and column where *)
- (* col :integer ) - cursor is to be moved *)
- (* *)
- (* Returned :nothing *)
- (* *)
- (**********************************************************************)
-
- Procedure gotoxy( ROW,COL : Integer);
-
- Procedure scroll_screen_up( nlines,ulr,ulc,lrr,lrc,attr: Integer);
-
- END;